home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / maestro / source / timeline / region.g < prev    next >
Encoding:
Text File  |  1993-06-15  |  13.2 KB  |  476 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :popup-window
  5.     :name                   RegionPopup
  6.     :owner                  nil
  7.     :width                  444
  8.     :height                 274
  9.     :background-color       ""
  10.     :foreground-color       ""
  11.     :label                  "Region Info Window"
  12.     :label-type             :string
  13.     :initial-state          :invisible
  14.     :show-footer            t
  15.     :resizable              nil
  16.     :pinned                 nil
  17.     :done-handler           nil
  18.     :event-handler          nil
  19.     :user-data              ()
  20.     :actions                ()
  21. )
  22. (
  23.     :type                   :control-area
  24.     :name                   controls1
  25.     :owner                  RegionPopup
  26.     :help                   ""
  27.     :x                      0
  28.     :y                      0
  29.     :width                  444
  30.     :height                 274
  31.     :background-color       "Light Gray"
  32.     :foreground-color       ""
  33.     :initial-state          :visible
  34.     :show-border            nil
  35.     :menu                   nil
  36.     :event-handler          nil
  37.     :user-data              ()
  38.     :actions                ()
  39. )
  40. (
  41.     :type                   :message
  42.     :name                   TimeLineMsg
  43.     :owner                  controls1
  44.     :help                   ""
  45.     :x                      16
  46.     :y                      8
  47.     :width                  124
  48.     :height                 13
  49.     :foreground-color       "Black"
  50.     :label                  "TimeLine Editor  : "
  51.     :label-type             :string
  52.     :label-bold             t
  53.     :initial-state          :active
  54.     :event-handler          nil
  55.     :user-data              ()
  56.     :actions                ()
  57. )
  58. (
  59.     :type                   :message
  60.     :name                   TimeLineDocMsg
  61.     :owner                  controls1
  62.     :help                   ""
  63.     :x                      144
  64.     :y                      8
  65.     :width                  61
  66.     :height                 13
  67.     :foreground-color       "Black"
  68.     :label                  "docname"
  69.     :label-type             :string
  70.     :label-bold             t
  71.     :initial-state          :active
  72.     :event-handler          nil
  73.     :user-data              ()
  74.     :actions                ()
  75. )
  76. (
  77.     :type                   :message
  78.     :name                   NumberRegionMsg
  79.     :owner                  controls1
  80.     :help                   ""
  81.     :x                      20
  82.     :y                      28
  83.     :width                  117
  84.     :height                 13
  85.     :foreground-color       "Black"
  86.     :label                  "# of regions        :"
  87.     :label-type             :string
  88.     :label-bold             t
  89.     :initial-state          :active
  90.     :event-handler          nil
  91.     :user-data              ()
  92.     :actions                ()
  93. )
  94. (
  95.     :type                   :message
  96.     :name                   RegionCountMsg
  97.     :owner                  controls1
  98.     :help                   ""
  99.     :x                      144
  100.     :y                      28
  101.     :width                  8
  102.     :height                 13
  103.     :foreground-color       "Black"
  104.     :label                  "0"
  105.     :label-type             :string
  106.     :label-bold             t
  107.     :initial-state          :active
  108.     :event-handler          nil
  109.     :user-data              ()
  110.     :actions                ()
  111. )
  112. (
  113.     :type                   :message
  114.     :name                   RegionSelectMsg
  115.     :owner                  controls1
  116.     :help                   ""
  117.     :x                      280
  118.     :y                      28
  119.     :width                  116
  120.     :height                 13
  121.     :foreground-color       "Black"
  122.     :label                  "Selected region  :"
  123.     :label-type             :string
  124.     :label-bold             t
  125.     :initial-state          :active
  126.     :event-handler          nil
  127.     :user-data              ()
  128.     :actions                ()
  129. )
  130. (
  131.     :type                   :message
  132.     :name                   RegionSelectValueMsg
  133.     :owner                  controls1
  134.     :help                   ""
  135.     :x                      404
  136.     :y                      28
  137.     :width                  8
  138.     :height                 13
  139.     :foreground-color       "Black"
  140.     :label                  "0"
  141.     :label-type             :string
  142.     :label-bold             t
  143.     :initial-state          :active
  144.     :event-handler          nil
  145.     :user-data              ()
  146.     :actions                ()
  147. )
  148. (
  149.     :type                   :message
  150.     :name                   RegionListHeaderMsg
  151.     :owner                  controls1
  152.     :help                   ""
  153.     :x                      40
  154.     :y                      48
  155.     :width                  357
  156.     :height                 13
  157.     :foreground-color       "Black"
  158.     :label                  "Region #                      Label                     Start          End  "
  159.     :label-type             :string
  160.     :label-bold             nil
  161.     :initial-state          :active
  162.     :event-handler          nil
  163.     :user-data              ()
  164.     :actions                ()
  165. )
  166. (
  167.     :type                   :scrolling-list
  168.     :name                   RegionList
  169.     :owner                  controls1
  170.     :help                   ""
  171.     :x                      8
  172.     :y                      68
  173.     :width                  400
  174.     :height                 92
  175.     :value-x                8
  176.     :value-y                68
  177.     :rows                   4
  178.     :foreground-color       "Black"
  179.     :label                  ""
  180.     :title                  ""
  181.     :label-type             :string
  182.     :layout-type            :horizontal
  183.     :read-only              t
  184.     :multiple-selections    nil
  185.     :selection-required     nil
  186.     :initial-state          :active
  187.     :droppable              nil
  188.     :default-drop-site      nil
  189.     :menu                   nil
  190.     :notify-handler         RegionListNotify
  191.     :event-handler          nil
  192.     :initial-list-values    ()
  193.     :initial-list-glyphs    ()
  194.     :initial-selections     ()
  195.     :user-data              ()
  196.     :actions                (
  197.         (
  198.         :from                   (RegionPopup RegionList)
  199.         :when                   (Notify )
  200.         :to                     (RegionPopup RegionList)
  201.         :function_type          CallFunction
  202.         :arg_type               ()
  203.         :action                 (RegionListNotify)
  204.         )
  205.     )
  206. )
  207. (
  208.     :type                   :message
  209.     :name                   CurrentRegionMsg
  210.     :owner                  controls1
  211.     :help                   ""
  212.     :x                      24
  213.     :y                      172
  214.     :width                  118
  215.     :height                 13
  216.     :foreground-color       "Black"
  217.     :label                  "Current Region :  "
  218.     :label-type             :string
  219.     :label-bold             t
  220.     :initial-state          :active
  221.     :event-handler          nil
  222.     :user-data              ()
  223.     :actions                ()
  224. )
  225. (
  226.     :type                   :message
  227.     :name                   StartRegionMsg
  228.     :owner                  controls1
  229.     :help                   ""
  230.     :x                      24
  231.     :y                      192
  232.     :width                  47
  233.     :height                 13
  234.     :foreground-color       "Black"
  235.     :label                  "Start  : "
  236.     :label-type             :string
  237.     :label-bold             t
  238.     :initial-state          :active
  239.     :event-handler          nil
  240.     :user-data              ()
  241.     :actions                ()
  242. )
  243. (
  244.     :type                   :message
  245.     :name                   StartRegionValueMsg
  246.     :owner                  controls1
  247.     :help                   ""
  248.     :x                      80
  249.     :y                      192
  250.     :width                  43
  251.     :height                 13
  252.     :foreground-color       "Black"
  253.     :label                  "  00:00"
  254.     :label-type             :string
  255.     :label-bold             t
  256.     :initial-state          :active
  257.     :event-handler          nil
  258.     :user-data              ()
  259.     :actions                ()
  260. )
  261. (
  262.     :type                   :message
  263.     :name                   EndRegionMsg
  264.     :owner                  controls1
  265.     :help                   ""
  266.     :x                      192
  267.     :y                      192
  268.     :width                  36
  269.     :height                 13
  270.     :foreground-color       "Black"
  271.     :label                  "End : "
  272.     :label-type             :string
  273.     :label-bold             t
  274.     :initial-state          :active
  275.     :event-handler          nil
  276.     :user-data              ()
  277.     :actions                ()
  278. )
  279. (
  280.     :type                   :message
  281.     :name                   EndRegionValueMsg
  282.     :owner                  controls1
  283.     :help                   ""
  284.     :x                      236
  285.     :y                      192
  286.     :width                  43
  287.     :height                 13
  288.     :foreground-color       "Black"
  289.     :label                  "  00:00"
  290.     :label-type             :string
  291.     :label-bold             t
  292.     :initial-state          :active
  293.     :event-handler          nil
  294.     :user-data              ()
  295.     :actions                ()
  296. )
  297. (
  298.     :type                   :text-field
  299.     :name                   RegionLabelText
  300.     :owner                  controls1
  301.     :help                   ""
  302.     :x                      24
  303.     :y                      212
  304.     :width                  233
  305.     :height                 15
  306.     :value-x                81
  307.     :value-y                212
  308.     :value-length           22
  309.     :stored-length          256
  310.     :rows                   3
  311.     :foreground-color       "Black"
  312.     :text-type              :alphanumeric
  313.     :label                  "Label : "
  314.     :label-type             :string
  315.     :layout-type            :horizontal
  316.     :value-underlined       t
  317.     :initial-value          ""
  318.     :initial-state          :active
  319.     :read-only              nil
  320.     :notify-handler         nil
  321.     :event-handler          nil
  322.     :user-data              ()
  323.     :actions                ()
  324. )
  325. (
  326.     :type                   :button
  327.     :name                   InsertRegionButton
  328.     :owner                  controls1
  329.     :help                   ""
  330.     :x                      32
  331.     :y                      240
  332.     :width                  53
  333.     :height                 19
  334.     :constant-width         nil
  335.     :button-type            :normal
  336.     :foreground-color       "Black"
  337.     :label                  "Insert"
  338.     :label-type             :string
  339.     :initial-state          :active
  340.     :menu                   nil
  341.     :notify-handler         InsertRegion
  342.     :event-handler          nil
  343.     :user-data              ()
  344.     :actions                (
  345.         (
  346.         :from                   (RegionPopup InsertRegionButton)
  347.         :when                   (Notify )
  348.         :to                     (RegionPopup InsertRegionButton)
  349.         :function_type          CallFunction
  350.         :arg_type               ()
  351.         :action                 (InsertRegion)
  352.         )
  353.     )
  354. )
  355. (
  356.     :type                   :button
  357.     :name                   DeleteRegionButton
  358.     :owner                  controls1
  359.     :help                   ""
  360.     :x                      108
  361.     :y                      240
  362.     :width                  57
  363.     :height                 19
  364.     :constant-width         nil
  365.     :button-type            :normal
  366.     :foreground-color       "Black"
  367.     :label                  "Delete"
  368.     :label-type             :string
  369.     :initial-state          :active
  370.     :menu                   nil
  371.     :notify-handler         DeleteRegion
  372.     :event-handler          nil
  373.     :user-data              ()
  374.     :actions                (
  375.         (
  376.         :from                   (RegionPopup DeleteRegionButton)
  377.         :when                   (Notify )
  378.         :to                     (RegionPopup DeleteRegionButton)
  379.         :function_type          CallFunction
  380.         :arg_type               ()
  381.         :action                 (DeleteRegion)
  382.         )
  383.     )
  384. )
  385. (
  386.     :type                   :button
  387.     :name                   ModifyRegionButton
  388.     :owner                  controls1
  389.     :help                   ""
  390.     :x                      184
  391.     :y                      240
  392.     :width                  60
  393.     :height                 19
  394.     :constant-width         nil
  395.     :button-type            :normal
  396.     :foreground-color       "Black"
  397.     :label                  "Modify"
  398.     :label-type             :string
  399.     :initial-state          :active
  400.     :menu                   nil
  401.     :notify-handler         ModifyRegion
  402.     :event-handler          nil
  403.     :user-data              ()
  404.     :actions                (
  405.         (
  406.         :from                   (RegionPopup ModifyRegionButton)
  407.         :when                   (Notify )
  408.         :to                     (RegionPopup ModifyRegionButton)
  409.         :function_type          CallFunction
  410.         :arg_type               ()
  411.         :action                 (ModifyRegion)
  412.         )
  413.     )
  414. )
  415. (
  416.     :type                   :button
  417.     :name                   ClearAllRegionButton
  418.     :owner                  controls1
  419.     :help                   ""
  420.     :x                      264
  421.     :y                      240
  422.     :width                  70
  423.     :height                 19
  424.     :constant-width         nil
  425.     :button-type            :normal
  426.     :foreground-color       "Black"
  427.     :label                  "Clear All"
  428.     :label-type             :string
  429.     :initial-state          :active
  430.     :menu                   nil
  431.     :notify-handler         ClearAllRegion
  432.     :event-handler          nil
  433.     :user-data              ()
  434.     :actions                (
  435.         (
  436.         :from                   (RegionPopup ClearAllRegionButton)
  437.         :when                   (Notify )
  438.         :to                     (RegionPopup ClearAllRegionButton)
  439.         :function_type          CallFunction
  440.         :arg_type               ()
  441.         :action                 (ClearAllRegion)
  442.         )
  443.     )
  444. )
  445. (
  446.     :type                   :button
  447.     :name                   RegionDoneButton
  448.     :owner                  controls1
  449.     :help                   ""
  450.     :x                      352
  451.     :y                      240
  452.     :width                  49
  453.     :height                 19
  454.     :constant-width         nil
  455.     :button-type            :normal
  456.     :foreground-color       "Black"
  457.     :label                  "Done"
  458.     :label-type             :string
  459.     :initial-state          :active
  460.     :menu                   nil
  461.     :notify-handler         CloseRegionPopup
  462.     :event-handler          nil
  463.     :user-data              ()
  464.     :actions                (
  465.         (
  466.         :from                   (RegionPopup RegionDoneButton)
  467.         :when                   (Notify )
  468.         :to                     (RegionPopup RegionDoneButton)
  469.         :function_type          CallFunction
  470.         :arg_type               ()
  471.         :action                 (CloseRegionPopup)
  472.         )
  473.     )
  474. )
  475. )
  476.